home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / BBS / MUBBS / MUBBS V1.1.SEA / MUBBS V1.1 / Nate's Sysop 2.0 / cards.xml < prev    next >
Text File  |  1992-02-22  |  18KB  |  339 lines
  1. card_2930.xml
  2. <?xml version="1.0" encoding="utf-8" ?>
  3. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4. <card>
  5.     <id>2930</id>
  6.     <filler1>0</filler1>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <owner>2792</owner>
  11.     <link rel="stylesheet" type="text/css" href="stylesheet_3089.css" />
  12.     <part>
  13.         <id>1</id>
  14.         <type>button</type>
  15.         <visible> <true /> </visible>
  16.         <reserved5> 0 </reserved5>
  17.         <reserved4> 0 </reserved4>
  18.         <reserved3> 0 </reserved3>
  19.         <reserved2> 0 </reserved2>
  20.         <reserved1> 0 </reserved1>
  21.         <enabled> <true /> </enabled>
  22.         <rect>
  23.             <left>15</left>
  24.             <top>309</top>
  25.             <right>209</right>
  26.             <bottom>332</bottom>
  27.         </rect>
  28.         <style>roundrect</style>
  29.         <showName> <true /> </showName>
  30.         <highlight> <false /> </highlight>
  31.         <autoHighlight> <false /> </autoHighlight>
  32.         <sharedHighlight> <true /> </sharedHighlight>
  33.         <family>0</family>
  34.         <titleWidth>0</titleWidth>
  35.         <icon>0</icon>
  36.         <textAlign>center</textAlign>
  37.         <font>Chicago</font>
  38.         <textSize>12</textSize>
  39.         <textStyle>plain</textStyle>
  40.         <name>Change WHOLE Folder's TYPE</name>
  41.         <script>on mouseUpput getpathname() into appnameif appname = "" then exit to hypercardput "This takes a WHOLE FOLDER and changes any file content's TYPE !" & return into card field statusput "Folders inside this one will NOT be affected" & return after card field statusput "Path you picked   =" & appname & return after card field statusput length of appname into irepeat until i <= 0if char i of appname = ":" thenput i into xput 0 into iend ifsubtract 1 from iend repeatput "" into output 0 into zrepeat until z = xput out & char z of appname into outadd 1 to zend repeatput out & ":" into folderput "Using folder path =" & folder & return after card field statusask "Change TYPE to what?" with "TEXT"if it = "" then exit mouseupput it into changetypeanswer "Not reversable, are you sure?" with "YES" or "CANCEL"if it = "CANCEL" thenput "A BIG MESS WAS CANCLED, GOOD THING!"  & return after card field statusexit to hypercardend ifput files(folder,"",0) into tempput 1 into i-- and show file namesrepeat until line i of temp is emptyput folder & line i of temp into appnameget gettype(appname)if the number of chars of it = 4 thenput line i of temp & " TYPE = ‚Äù" &it&"‚Äù " after card field statuselseput line i of temp & " TYPE NOT AVAILABLE " after card field statusend ifsettype appname,changetypeif the result ‚↠"" thenput "- NOT CHANGED!!" &return after card field statuselseget gettype(appname)if the number of chars of it = 4 thenput " Changed to ‚Äù" &it&"‚Äù "&return after card field statuselseput " TYPE STILL NOT AVAILABLE "&return after card field statusend ifend ifadd 1 to iend repeatput " -- DONE --" & return after card field statusend mouseUp</script>
  42.     </part>
  43.     <part>
  44.         <id>2</id>
  45.         <type>button</type>
  46.         <visible> <true /> </visible>
  47.         <reserved5> 0 </reserved5>
  48.         <reserved4> 0 </reserved4>
  49.         <reserved3> 0 </reserved3>
  50.         <reserved2> 0 </reserved2>
  51.         <reserved1> 0 </reserved1>
  52.         <enabled> <true /> </enabled>
  53.         <rect>
  54.             <left>420</left>
  55.             <top>216</top>
  56.             <right>510</right>
  57.             <bottom>239</bottom>
  58.         </rect>
  59.         <style>roundrect</style>
  60.         <showName> <true /> </showName>
  61.         <highlight> <false /> </highlight>
  62.         <autoHighlight> <true /> </autoHighlight>
  63.         <sharedHighlight> <true /> </sharedHighlight>
  64.         <family>0</family>
  65.         <titleWidth>0</titleWidth>
  66.         <icon>0</icon>
  67.         <textAlign>center</textAlign>
  68.         <font>Chicago</font>
  69.         <textSize>12</textSize>
  70.         <textStyle>plain</textStyle>
  71.         <name>ABOUT</name>
  72.         <script>on mouseUpshow card field "info"repeat until the mouse is downend repeathide card field "info"end mouseUp</script>
  73.     </part>
  74.     <part>
  75.         <id>4</id>
  76.         <type>field</type>
  77.         <visible> <true /> </visible>
  78.         <dontWrap> <false /> </dontWrap>
  79.         <dontSearch> <false /> </dontSearch>
  80.         <sharedText> <false /> </sharedText>
  81.         <fixedLineHeight> <true /> </fixedLineHeight>
  82.         <autoTab> <false /> </autoTab>
  83.         <lockText> <false /> </lockText>
  84.         <rect>
  85.             <left>8</left>
  86.             <top>28</top>
  87.             <right>510</right>
  88.             <bottom>212</bottom>
  89.         </rect>
  90.         <style>scrolling</style>
  91.         <autoSelect> <false /> </autoSelect>
  92.         <showLines> <false /> </showLines>
  93.         <wideMargins> <false /> </wideMargins>
  94.         <multipleLines> <false /> </multipleLines>
  95.         <reservedFamily> 0 </reservedFamily>
  96.         <titleWidth>0</titleWidth>
  97.         <icon>0</icon>
  98.         <textAlign>left</textAlign>
  99.         <font>Monaco</font>
  100.         <textSize>9</textSize>
  101.         <textStyle>plain</textStyle>
  102.         <textHeight>12</textHeight>
  103.         <name>status</name>
  104.         <script></script>
  105.     </part>
  106.     <part>
  107.         <id>5</id>
  108.         <type>button</type>
  109.         <visible> <true /> </visible>
  110.         <reserved5> 0 </reserved5>
  111.         <reserved4> 0 </reserved4>
  112.         <reserved3> 0 </reserved3>
  113.         <reserved2> 0 </reserved2>
  114.         <reserved1> 0 </reserved1>
  115.         <enabled> <true /> </enabled>
  116.         <rect>
  117.             <left>15</left>
  118.             <top>280</top>
  119.             <right>209</right>
  120.             <bottom>303</bottom>
  121.         </rect>
  122.         <style>roundrect</style>
  123.         <showName> <true /> </showName>
  124.         <highlight> <false /> </highlight>
  125.         <autoHighlight> <false /> </autoHighlight>
  126.         <sharedHighlight> <true /> </sharedHighlight>
  127.         <family>0</family>
  128.         <titleWidth>0</titleWidth>
  129.         <icon>0</icon>
  130.         <textAlign>center</textAlign>
  131.         <font>Chicago</font>
  132.         <textSize>12</textSize>
  133.         <textStyle>plain</textStyle>
  134.         <name>Change ONE File's TYPE</name>
  135.         <script>on mouseUpput getpathname() into appnameif appname = "" then exit to hypercardput "This changes a FILE's TYPE !" & return into card field statusput "File you picked   =" & appname & return after card field statusput appname into folderask "Change TYPE to what?" with "TEXT"if it = "" then exit mouseupput it into changetypeanswer "Not reversable, are you sure?" with "YES" or "CANCEL"if it = "CANCEL" thenput "A BIG MESS WAS CANCLED, GOOD THING!"  & return after card field statusexit to hypercardend ifput folder into appnameget gettype(appname)if the number of chars of it = 4 thenput  " TYPE = ‚Äù" &it&"‚Äù " after card field statuselseput  " TYPE NOT AVAILABLE " after card field statusend ifsettype appname,changetypeif the result ‚↠"" thenput "- NOT CHANGED!!" &return after card field statuselseget gettype(appname)if the number of chars of it = 4 thenput " Changed to ‚Äù" &it&"‚Äù "&return after card field statuselseput " TYPE STILL NOT AVAILABLE "&return after card field statusend ifend ifput " -- DONE --" & return after card field statusend mouseUp</script>
  136.     </part>
  137.     <part>
  138.         <id>6</id>
  139.         <type>button</type>
  140.         <visible> <true /> </visible>
  141.         <reserved5> 0 </reserved5>
  142.         <reserved4> 0 </reserved4>
  143.         <reserved3> 0 </reserved3>
  144.         <reserved2> 0 </reserved2>
  145.         <reserved1> 0 </reserved1>
  146.         <enabled> <true /> </enabled>
  147.         <rect>
  148.             <left>15</left>
  149.             <top>221</top>
  150.             <right>209</right>
  151.             <bottom>244</bottom>
  152.         </rect>
  153.         <style>roundrect</style>
  154.         <showName> <true /> </showName>
  155.         <highlight> <false /> </highlight>
  156.         <autoHighlight> <false /> </autoHighlight>
  157.         <sharedHighlight> <true /> </sharedHighlight>
  158.         <family>0</family>
  159.         <titleWidth>0</titleWidth>
  160.         <icon>0</icon>
  161.         <textAlign>center</textAlign>
  162.         <font>Chicago</font>
  163.         <textSize>12</textSize>
  164.         <textStyle>plain</textStyle>
  165.         <name>LIST a Folder's TYPES</name>
  166.         <script>on mouseUpput getpathname() into appnameif appname = "" then exit to hypercardput "This shows all files in a folder & the types" & return into card field statusput "Folders inside this one will NOT be read" & return after card field statusput "Path you picked   =" & appname & return after card field statusput length of appname into irepeat until i <= 0if char i of appname = ":" thenput i into xput 0 into iend ifsubtract 1 from iend repeatput "" into output 0 into zrepeat until z = xput out & char z of appname into outadd 1 to zend repeatput out & ":" into folderput "Using folder path =" & folder & return after card field statusput files(folder,"",0) into tempput 1 into i-- and show file namesrepeat until line i of temp is emptyput folder & line i of temp into appnameget gettype(appname)if the number of chars of it = 4 thenput line i of temp & " TYPE = ‚Äù" &it&"‚Äù "&return after card field statuselseput line i of temp & " TYPE NOT AVAILABLE "&return after card field statusend ifadd 1 to iend repeatput " -- DONE --" & return after card field statusend mouseUp</script>
  167.     </part>
  168.     <part>
  169.         <id>7</id>
  170.         <type>button</type>
  171.         <visible> <true /> </visible>
  172.         <reserved5> 0 </reserved5>
  173.         <reserved4> 0 </reserved4>
  174.         <reserved3> 0 </reserved3>
  175.         <reserved2> 0 </reserved2>
  176.         <reserved1> 0 </reserved1>
  177.         <enabled> <true /> </enabled>
  178.         <rect>
  179.             <left>223</left>
  180.             <top>309</top>
  181.             <right>417</right>
  182.             <bottom>332</bottom>
  183.         </rect>
  184.         <style>roundrect</style>
  185.         <showName> <true /> </showName>
  186.         <highlight> <false /> </highlight>
  187.         <autoHighlight> <false /> </autoHighlight>
  188.         <sharedHighlight> <true /> </sharedHighlight>
  189.         <family>0</family>
  190.         <titleWidth>0</titleWidth>
  191.         <icon>0</icon>
  192.         <textAlign>center</textAlign>
  193.         <font>Chicago</font>
  194.         <textSize>12</textSize>
  195.         <textStyle>plain</textStyle>
  196.         <name>Try to DeMacBinify a FOLDER</name>
  197.         <script>on mouseUpput getpathname() into appnameif appname = "" then exit to hypercardput "This takes a WHOLE FOLDER and TRIES to MacDebinify every file !" & return into card field statusput "If a file is converted, it is saved with the extension .CNV" & return after card field statusput "Folders inside this one will NOT be affected" & return after card field statusput "Path you picked   =" & appname & return after card field statusput length of appname into irepeat until i <= 0if char i of appname = ":" thenput i into xput 0 into iend ifsubtract 1 from iend repeatput "" into output 0 into zrepeat until z = xput out & char z of appname into outadd 1 to zend repeatput out & ":" into folderput "Using folder path =" & folder & return after card field statusanswer "Not reversable (but doesn't delete anything), are you sure?" with "YES" or "CANCEL"if it = "CANCEL" thenput "CANCLED, GOOD THING!"  & return after card field statusexit to hypercardend ifput files(folder,"",0) into tempput 1 into i-- and show file namesrepeat until line i of temp is emptyput folder & line i of temp into appnameget deMacBinify(appname,appname & ".CNV")put line i of temp & " Result = ‚Äù" &it&"‚Äù "&return after card field statusadd 1 to iend repeatput " -- DONE --" & return after card field statusend mouseUp</script>
  198.     </part>
  199.     <part>
  200.         <id>8</id>
  201.         <type>button</type>
  202.         <visible> <true /> </visible>
  203.         <reserved5> 0 </reserved5>
  204.         <reserved4> 0 </reserved4>
  205.         <reserved3> 0 </reserved3>
  206.         <reserved2> 0 </reserved2>
  207.         <reserved1> 0 </reserved1>
  208.         <enabled> <true /> </enabled>
  209.         <rect>
  210.             <left>222</left>
  211.             <top>280</top>
  212.             <right>416</right>
  213.             <bottom>303</bottom>
  214.         </rect>
  215.         <style>roundrect</style>
  216.         <showName> <true /> </showName>
  217.         <highlight> <false /> </highlight>
  218.         <autoHighlight> <false /> </autoHighlight>
  219.         <sharedHighlight> <true /> </sharedHighlight>
  220.         <family>0</family>
  221.         <titleWidth>0</titleWidth>
  222.         <icon>0</icon>
  223.         <textAlign>center</textAlign>
  224.         <font>Chicago</font>
  225.         <textSize>12</textSize>
  226.         <textStyle>plain</textStyle>
  227.         <name>DeMacBinify ONE file</name>
  228.         <script>on mouseUpput getpathname() into appnameif appname = "" then exit to hypercardput "This TRIES to MacDebinify a file !" & return into card field statusput "If the file is converted, it is saved with the extension .CNV" & return after card field statusput "File you picked   =" & appname & return after card field statusanswer "Not reversable (but doesn't delete anything), are you sure?" with "YES" or "CANCEL"if it = "CANCEL" thenput "CANCLED, GOOD THING!"  & return after card field statusexit to hypercardend ifget deMacBinify(appname,appname & ".CNV")put " Result = ‚Äù" &it&"‚Äù "&return after card field statusput " -- DONE --" & return after card field statusend mouseUp</script>
  229.     </part>
  230.     <part>
  231.         <id>9</id>
  232.         <type>button</type>
  233.         <visible> <true /> </visible>
  234.         <reserved5> 0 </reserved5>
  235.         <reserved4> 0 </reserved4>
  236.         <reserved3> 0 </reserved3>
  237.         <reserved2> 0 </reserved2>
  238.         <reserved1> 0 </reserved1>
  239.         <enabled> <true /> </enabled>
  240.         <rect>
  241.             <left>220</left>
  242.             <top>219</top>
  243.             <right>414</right>
  244.             <bottom>242</bottom>
  245.         </rect>
  246.         <style>roundrect</style>
  247.         <showName> <true /> </showName>
  248.         <highlight> <false /> </highlight>
  249.         <autoHighlight> <false /> </autoHighlight>
  250.         <sharedHighlight> <true /> </sharedHighlight>
  251.         <family>0</family>
  252.         <titleWidth>0</titleWidth>
  253.         <icon>0</icon>
  254.         <textAlign>center</textAlign>
  255.         <font>Chicago</font>
  256.         <textSize>12</textSize>
  257.         <textStyle>plain</textStyle>
  258.         <name>MacBinify ONE file</name>
  259.         <script>on mouseUpput getpathname() into appnameif appname = "" then exit to hypercardput "This TRIES to MacBinify a file !" & return into card field statusput "If the file is converted, it is saved with the extension .CNV" & return after card field statusput "File you picked   =" & appname & return after card field statusanswer "Not reversable (but doesn't delete anything), are you sure?" with "YES" or "CANCEL"if it = "CANCEL" thenput "CANCLED, GOOD THING!"  & return after card field statusexit to hypercardend ifmacBinify appname,appname & ".CNV"put " Result = ‚Äù" &it&"‚Äù "&return after card field statusput " -- DONE --" & return after card field statusend mouseUp</script>
  260.     </part>
  261.     <part>
  262.         <id>10</id>
  263.         <type>button</type>
  264.         <visible> <true /> </visible>
  265.         <reserved5> 0 </reserved5>
  266.         <reserved4> 0 </reserved4>
  267.         <reserved3> 0 </reserved3>
  268.         <reserved2> 0 </reserved2>
  269.         <reserved1> 0 </reserved1>
  270.         <enabled> <true /> </enabled>
  271.         <rect>
  272.             <left>221</left>
  273.             <top>249</top>
  274.             <right>415</right>
  275.             <bottom>272</bottom>
  276.         </rect>
  277.         <style>roundrect</style>
  278.         <showName> <true /> </showName>
  279.         <highlight> <false /> </highlight>
  280.         <autoHighlight> <false /> </autoHighlight>
  281.         <sharedHighlight> <true /> </sharedHighlight>
  282.         <family>0</family>
  283.         <titleWidth>0</titleWidth>
  284.         <icon>0</icon>
  285.         <textAlign>center</textAlign>
  286.         <font>Chicago</font>
  287.         <textSize>12</textSize>
  288.         <textStyle>plain</textStyle>
  289.         <name>Try to MacBinify a FOLDER</name>
  290.         <script>on mouseUpput getpathname() into appnameif appname = "" then exit to hypercardput "This takes a WHOLE FOLDER and TRIES to MacBinify every file !" & return into card field statusput "If a file is converted, it is saved with the extension .CNV" & return after card field statusput "Folders inside this one will NOT be affected" & return after card field statusput "Path you picked   =" & appname & return after card field statusput length of appname into irepeat until i <= 0if char i of appname = ":" thenput i into xput 0 into iend ifsubtract 1 from iend repeatput "" into output 0 into zrepeat until z = xput out & char z of appname into outadd 1 to zend repeatput out & ":" into folderput "Using folder path =" & folder & return after card field statusanswer "Not reversable (but doesn't delete anything), are you sure?" with "YES" or "CANCEL"if it = "CANCEL" thenput "CANCLED, GOOD THING!"  & return after card field statusexit to hypercardend ifput files(folder,"",0) into tempput 1 into i-- and show file namesrepeat until line i of temp is emptyput folder & line i of temp into appnamemacBinify appname,appname & ".CNV"put line i of temp & " Result = ‚Äù" &it&"‚Äù "&return after card field statusadd 1 to iend repeatput " -- DONE --" & return after card field statusend mouseUp</script>
  291.     </part>
  292.     <part>
  293.         <id>3</id>
  294.         <type>field</type>
  295.         <visible> <false /> </visible>
  296.         <dontWrap> <false /> </dontWrap>
  297.         <dontSearch> <false /> </dontSearch>
  298.         <sharedText> <false /> </sharedText>
  299.         <fixedLineHeight> <true /> </fixedLineHeight>
  300.         <autoTab> <false /> </autoTab>
  301.         <lockText> <true /> </lockText>
  302.         <rect>
  303.             <left>57</left>
  304.             <top>52</top>
  305.             <right>469</right>
  306.             <bottom>323</bottom>
  307.         </rect>
  308.         <style>shadow</style>
  309.         <autoSelect> <false /> </autoSelect>
  310.         <showLines> <false /> </showLines>
  311.         <wideMargins> <false /> </wideMargins>
  312.         <multipleLines> <false /> </multipleLines>
  313.         <reservedFamily> 0 </reservedFamily>
  314.         <titleWidth>0</titleWidth>
  315.         <icon>0</icon>
  316.         <textAlign>left</textAlign>
  317.         <font>Geneva</font>
  318.         <textSize>10</textSize>
  319.         <textStyle>plain</textStyle>
  320.         <textHeight>13</textHeight>
  321.         <name>info</name>
  322.         <script></script>
  323.     </part>
  324.     <content>
  325.         <layer>card</layer>
  326.         <id>3</id>
  327.         <text>This is a Hypercard HACK !                                                      Nate's Sysop V2.0Use this at your own risk, and as always:USE IT ON A COPY OF YOUR DATA !! (BACK UP YOUR DATA TOO !!)This simply "MacBinifies" or "DeMacBinifies" a file or a whole folder of files.Use this to prepare files for "Upload Maniac", uploading massive amounts of files to MUBBS !   Have fun!READ THE "READ ME" FILE THAT CAME WITH THIS STACK !What do you want for nothin' ?                                             (Click anywhere to return)</text>
  328.     </content>
  329.     <content>
  330.         <layer>card</layer>
  331.         <id>4</id>
  332.         <text>This TRIES to MacBinify a file !If the file is converted, it is saved with the extension .CNVFile you picked   =300 MB:1 CD ROM PLAYING:BOX 3 ALL DIRs.SEA Result = ‚ÄùYES‚Äù  -- DONE --</text>
  333.     </content>
  334.     <name></name>
  335.     <script></script>
  336. </card>
  337.  
  338.  
  339.